home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / sbin / syslogd-listfiles < prev    next >
Text File  |  2008-08-29  |  4KB  |  147 lines
  1. #! /usr/bin/perl
  2.  
  3. # Copyright (c) 1998,9,2001,3 by Martin Schulze <joey@infodrom.org>
  4.  
  5. # This program is free software; you can redistribute it and/or modify
  6. # it under the terms of the GNU General Public License as published by
  7. # the Free Software Foundation; either version 2 of the License, or
  8. # (at your option) any later version.
  9. # 
  10. # This program is distributed in the hope that it will be useful,
  11. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. # GNU General Public License for more details.
  14. # 
  15. # You should have received a copy of the GNU General Public License
  16. # along with this program; if not, write to the Free Software
  17. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA.
  18.  
  19. $conf = "/etc/syslog.conf";
  20. $opt_daily = 1;
  21. $opt_all = 0;
  22. $opt_auth = 0;
  23. $opt_ign_size = 0;
  24. $opt_news = 0;
  25. $opt_skip = '';
  26. $opt_large = 1024*1024;
  27.  
  28. sub usage
  29. {
  30.     print STDERR
  31. "
  32. Debian GNU/Linux syslogd-listfiles.  Copyright (c) 1997,2001
  33. Martin Schulze.  This is free software; see the GNU General Public Licence
  34. version 2 or later for copying conditions.  There is NO warranty.
  35.  
  36. Usage: syslogd-listfiles <options>
  37. Options: -f file    specifies another syslog.conf file
  38.          -a | --all    list all files (including news)
  39.          --auth        list all files containing auth.<some prio>
  40.      --ignore-size  don't rotate files which got too large
  41.          --large nnn    define what is large in bytes (default: 1MB)
  42.          --news        include news logfiles, too
  43.          -w | --weekly    use weekly pattern instead of daily
  44.          -s pattern    skip files matching pattern
  45. ";
  46. }
  47.  
  48. # Test if the file was already rotated within the last n hours
  49. # with n=5
  50. #
  51. sub rotated
  52. {
  53.     my $file = shift;
  54.     my $nfile;
  55.     my $delta = 5 * 60 * 60;
  56.     my $now = time();
  57.     
  58.     # /var/log/file -> /var/log/file.0
  59.     $nfile = $file . ".0";
  60.     if (-r $nfile) {
  61.     if (($now - (stat $nfile)[9]) > $delta) {
  62.         return 0;
  63.     } else {
  64.         return 1;
  65.     }
  66.     }
  67.  
  68.     # /var/log/file -> /var/log/OLD/file.0
  69.     $nfile =~ s,(.*)/([^/]+),$1/OLD/$2,;
  70.     if (-r $nfile) {
  71.     if (($now - (stat $nfile)[9]) > $delta) {
  72.         return 0;
  73.     } else {
  74.         return 1;
  75.     }
  76.     }
  77.  
  78.     return 0;
  79. }
  80.  
  81. while (@ARGV) {
  82.     $_=shift(@ARGV);
  83.     if (m/^-f$/) {
  84.     $conf = shift(@ARGV);
  85.     } elsif (m/^-s$/) {
  86.     $opt_skip = shift(@ARGV);
  87.     } elsif (m/^--large$/) {
  88.     $opt_large = shift(@ARGV);
  89.     } elsif (m/^(--weekly|-w)$/) {
  90.     $opt_daily = 0;
  91.     } elsif (m/^(-a|--all)$/) {
  92.     $opt_all = 1;
  93.     } elsif (m/^--auth$/) {
  94.     $opt_auth = 1;
  95.     } elsif (m/^--ignore-size/) {
  96.     $opt_ign_size = 1;
  97.     } elsif (m/^--news$/) {
  98.     $opt_news = 1;
  99.     } else {
  100.     &usage();exit (0);
  101.     }
  102. }
  103.  
  104. open (C, $conf) || die "Can't open $conf, $!";
  105. while (<C>) {
  106.     next if (/^(\#|$)/);
  107.     chomp;
  108.  
  109.     s/\s*(\S.*)$/$1/ if ($line);
  110.  
  111.     $line .= $_;
  112.     chop ($line) if (/\\$/);
  113.     if (!/\\$/) {
  114.     $line =~ s/\s+/\t/;
  115.     $line =~ s/\t-/\t/;
  116.     push (@lines, $line) if ($line =~ /\t\/(?!dev\/)/);
  117.     $line = "";
  118.     }
  119. }
  120. close (C);
  121.  
  122. foreach $line (@lines) {
  123.     ($pat,$file) = split (/\t/,$line);
  124.  
  125.     # These files are handled by news.daily from INN, so we ignore them
  126.     next if (!$opt_news && ($pat =~ /news\.(\*|crit|err|info|notice)/));
  127.  
  128.     if ($opt_all) {
  129.     $output{$file} = 1;
  130.     } elsif ($opt_auth) {
  131.     $output{$file} = 1 if ($pat =~ /auth[^\.]*\.(?!none).*/);
  132.     } else {
  133.     $everything = ($pat =~ /\*\.\*/);
  134.     $output{$file} = 1 if (($everything && $opt_daily)
  135.                    || (!$everything && !$opt_daily && !rotated ($file))
  136.                    || (!$opt_ign_size && ((stat $file)[7] >= $opt_large) && $opt_daily)
  137.                    );
  138.     }
  139. }
  140.  
  141. foreach $file (keys (%output)) {
  142.     $skip = $file;
  143.     if (!length($opt_skip) ||  $skip !~ /$opt_skip/) {
  144.     printf "%s\n", $file;
  145.     }
  146. }
  147.